Top 10k strings from Spectrum Morse (1983)(Sinclair Programs)(16k).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

   1 u$(f)=e$(1
   1 f;". YOU ENTERED ";q$;" IT WAS ";p$
   1 f;" RIGHT"
   1 e$(m)=b$(r)
   1 d$(m,n),15
   1 d$(m)=a$(r)
   1 c$="ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
   1 b$(n)=c$(n)
   1 a$((m+n),p),15
   1 SET UP SPEED
   1 Morse     
   1 MORSE TUTOR
   1 GENERATE BLOCK OF 4 FIGURES AND SOUND CODE
   1 ;"X -..-";
   1 ;"V ...-";
   1 ;"SPEED 1 TO 10  :";i:
   1 ;"Q --.-";
   1 ;"P .--.";
   1 ;"L .-..";
   1 ;"J .---";
   1 ;"H ....";
   1 ;"F ..-.";
   1 ;"ENTER INTERPRETATION  :";q$
   1 ;"DO YOU WANT TO SEE THE MORSE /  ALPHABET (Y/N)?";i$
   1 ;"DO YOU WANT TO INPUT YOUR ANSWER 1. AFTER EACH BLOCK 2.WHEN     SEQUENCE COMPLETE(ENTER 1 OR 2)";j
   1 ;"C -.-.";
   1 ;"B -...";
   1 ;"9 ----."
   1 ;"8 ---.."
   1 ;"7 --..."
   1 ;"6 -...."
   1 ;"5 ....."
   1 ;"4 ....-"
   1 ;"3 ...--"
   1 ;"2 ..---"
   1 ;"1 .----"
   1 ;"0 -----"
   1 ,,,,"ENTER 'Y' FOR ANOTHER GO."
   1 ,,"YOU WERE CORRECT ";p;" TIMES OUT OF ";i
   1 ,,"HOW MANY BLOCKS ?  ";
   1 "YOU WERE CORRECT ";s;" TIMES OUT OF ";i
   1 "ENTER YOUR ANSWER FOR EACH BLOCK":
   1 "BBCCC","BACCC","BBBCC","ABBAC","BBABC","ABACC","AAACC","BCCCC","AABCC","AAABC","ABBCC"
   1 "BAABC","BABBC","BBAAC","ABBBB","AABBB","AAABB","AAAAB","AAAAA","BAAAA","BBAAA","BBBAA","BBBBA","BBBBB"
   1 "ABCCC","BAAAC","BABAC","BAACC","ACCCC","AABAC","BBACC","AAAAC","AACCC","ABBBC","BABCC","ABAAC"
   1 " YOU GAVE ";q$;" IT WAS ";u$(f)
   1 " CORRECT.":
   1 "    M O R S E  T R A I N E R    ",,,,"A BLOCK OF FOUR NUMBERS AND","LETTERS WILL BE SELECTED AT ","RANDOM AND YOU WILL BE ASKED","TO INTERPRET THEM. IF YOU ARE","WRONG THEN YOU WILL BE ABLE","TO COMPARE YOUR INTERPRETATION  WITH THE CORRECT ANSWER.",,,"SPEED 10 WILL GIVE APPROX 15","WORDS PER MINUTE. SLOWER SPEEDS","WILL INCREASE THE INTERVAL","BETWEEN LETTERS TO GIVE YOU","MORE TIME FOR INTERPRETATION."
   1  Tom Garner 1983
   1      Sinclair Programs, May 83
   1      By Tom Garner